home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Array.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  43 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16rFA 16r01 16r72 16rF3] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " size " \
  7.   #( #[ 16r20 16rFA 16r01 16r04 16rF3] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " printString " \
  11.   #( #[ 16r5E 16r80 16r00 16rF2 16r31 16r71 16r20 16rFA 16r01 16r04 16r72 \
  12.         16r22 16r50 16rCC 16rF7 16r2E 16r20 16r22 16rFA 16r02 16r6F \
  13.         16r73 16r23 16r05 16r2C 16r81 16r02 16rF7 16r0D 16r23 16r80 \
  14.         16r03 16r34 16r0B 16r12 16r21 16r0B 16r12 16r71 16r5D 16rF8 \
  15.         16r0B 16rF2 16r23 16rA9 16r34 16r0B 16r12 16r21 16r0B 16r12 \
  16.         16r71 16r5D 16rF2 16r22 16r51 16rC1 16rF1 16r72 16rF2 16rF9 \
  17.         16r33 16rF2 16r5E 16r80 16r05 16rF2 16r36 16r21 16r0B 16r12 \
  18.         16rF3] \
  19.     #( #tracingOff ')' #isKindOf: #asHex ' ' #tracingOn '#('  )) >
  20.  
  21. <primitive 112 pTempVar 4  " grow: " \
  22.   #( #[ 16r20 16r21 16rFA 16r02 16r71 16rF3] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 5  " at:put: " \
  26.   #( #[ 16r20 16r21 16r22 16rFA 16r03 16r70 16rF3] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 6  " at: " \
  30.   #( #[ 16r20 16r21 16rFA 16r02 16r6F 16rF3] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 7  " new " \
  34.   #( #[ 16r51 16rFA 16r01 16r72 16rF3] \
  35.     #(  )) >
  36.  
  37. <primitive 98 #Array \
  38.   <primitive 97 #Array #ArrayedCollection #AmigaTalk:General/Array.st \
  39.    #(  ) \
  40.    #( #new: #size #printString #grow: #at:put: #at: #new  ) \
  41.   pTempVar 4 7 > #ordinary >
  42.  
  43.